home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.12 Dec 90 / Simulation code / Distributions.d < prev    next >
Encoding:
Modula Definition  |  1989-06-18  |  690 b   |  26 lines  |  [TEXT/MPS ]
  1. (****************************************************)
  2. (*                                                    *)
  3. (*    file:  Distributions.d                            *)
  4. (*                                                    *)
  5. (*    This module provides commonly used random         *)
  6. (*    distributions.                                    *)
  7. (*                                                    *)
  8. (*    Written in SemperSoft Modula-2 v.1.1.2            *)
  9. (*                                                    *)
  10. (*    Allen Stenger    May 1989                          *)
  11. (*                                                    *)
  12. (****************************************************)
  13.  
  14. DEFINITION MODULE Distributions;
  15.  
  16. (*    Uniform distribution in the range start..end.
  17. *)
  18. PROCEDURE UniformDistribution( 
  19.             start, end : CARDINAL ) : CARDINAL;
  20.  
  21. (*    Exponential distribution of given mean.
  22. *)
  23. PROCEDURE ExponentialDistribution( 
  24.             mean : CARDINAL ) : CARDINAL;
  25.  
  26. END Distributions.